home *** CD-ROM | disk | FTP | other *** search
/ HaCKeRz Kr0nlcKLeZ 1 / HaCKeRz Kr0nlcKLeZ.iso / scriptz / colormenu.txt < prev    next >
Encoding:
Text File  |  1996-04-23  |  2.0 KB  |  54 lines
  1. Just slap this in Popups
  2.  
  3. Color
  4. .Colors
  5. ..Dark Blue:/msg $active 2 $+ $?5="Enter Text" 
  6. ..Green:/msg $active 3 $+ $?6="Enter Text" 
  7. ..Red:/msg $active 4 $+ $?7="Enter Text" 
  8. ..Maroon:/msg $active 5 $+ $?8="Enter Text" 
  9. ..Purple:/msg $active 6 $+ $?9="Enter Text" 
  10. ..Tan:/msg $active 7 $+ $?0="Enter Text" 
  11. ..Yellow:/msg $active 8 $+ $?11="Enter Text" 
  12. ..Light Green:/msg $active 9 $+ $?12="Enter Text" 
  13. ..Grey-Blue:/msg $active 10 $+ $?13="Enter Text" 
  14. ..Light Blue:/msg $active 11 $+ $?14="Enter Text" 
  15. ..Blue:/msg $active 12 $+ $?15="Enter Text" 
  16. ..Pink:/msg $active 13 $+ $?16="Enter Text" 
  17. ..Grey:/msg $active 14 $+ $?17="Enter Text" 
  18. ..Light Grey:/msg $active 15 $+ $?18="Enter Text" 
  19. .Other Things
  20. ..Bold:/msg $active  $+ $?1="Enter Text"
  21. ..Underlined:/msg $active  $+ $?2="Enter text"
  22. ..Highlighted:/msg $active  $+ $?3="Enter Text"
  23. ..Color:/msg $active  $+ $?4="Enter color number" $+ $?="Enter Text"
  24. ..Random color:/msg $active  $+ $rand(2,15) $+ $?5="Enter Text"2,15) $+ $?="Enter Text"
  25.  
  26.  
  27. And for your convenience ive added some aliases scripts as well..:
  28.  
  29. /brick { %num = 1 | unset %msg  | %msg =  | %color = p
  30.   :start
  31.   if %color == p { %num2 = 1 | %num3 = 4 | %color = y | goto add }
  32.   if %color == y  { %num2 = 4 | %num3 = 1 | %color = p | goto add }
  33.   :add
  34.   if $mid(%num,1, *1) != $null {
  35.     %msg = %msg $+   $+ %num2 $+ , $+  %num3 $+  $mid(%num, 1,*1) $+   
  36.     inc %num 
  37.   goto start  }
  38.   say %msg
  39. }
  40. /ransom { %num = 2 | unset %msg  | %msg =   $upper( $mid(1, 1,*1) ) $+ 
  41.   :start
  42.   %U = $rand(1,2) | %B = $rand(1,2) | %R = $rand(1,2) | %up = $rand(1,2) 
  43.   %DaMan =  
  44.   if %u == 1 { %DaMan = $remove(%daMan,) }
  45.   if %b == 1 { %DaMan = $remove(%DaMan,) }
  46.   if %R == 1 { %DaMan = $remove(%DaMan,) }
  47.   if $mid(%num,1, *1) != $null {
  48.     if %up == 1 && $mid(%num, 1,*1) != $chr(32)  { %msg = %msg $+ %DaMan $+ $upper( [ $mid(%num, 1,*1) ] ) $+ %DaMan }
  49.     if %up == 2 || $mid(%num, 1,*1) == $chr(32) { %msg = %msg $+ %DaMan $+ $mid(%num, 1,*1) $+ %DaMan }
  50.     inc %num 
  51.   goto start  }
  52.   say %msg
  53. }
  54.